home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok19 / trackdisksupport / inhibitdemo.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  65 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    InhibitDemo.mod
  4.     :Contents.   Test and demo module for TrackDiskSupport.InhibitDrive
  5.     :Author.     Fridtjof Siebert [fbs]
  6.     :Author.     Nicolas Benezan [bne]
  7.     :Address.    [bne] Postwiesenstr. 2, D7000 Stuttgart 60
  8.     :Phone.      [bne] 711/333679
  9.     :Copyright.  Public Domain
  10.     :Language.   Modula-2
  11.     :Translator. M2Amiga A+L V3.2d
  12.     :Imports.    TrackDiskSupport2.1 [fbs],[bne]
  13.     :History.    V1.0 [bne] 13.May.1989
  14.  
  15. **********************************************************************)
  16. MODULE InhibitDemo;
  17.  
  18. FROM Arts             IMPORT BreakPoint;
  19. FROM Dos              IMPORT Delay;
  20. FROM Exec             IMPORT Byte;
  21. FROM TrackDisk        IMPORT badDriveType;
  22. FROM InOut            IMPORT WriteString, WriteLn, ReadString, WriteInt;
  23. FROM MemSystem        IMPORT NoCareAllocMem, Deallocate;
  24. FROM SYSTEM           IMPORT ADR, CAST;
  25. FROM TrackDiskSupport IMPORT OpenDiskDevice, CloseDiskDevice, DiskUnit,
  26.                              InhibitDrive;
  27.  
  28. VAR
  29.   DevName: ARRAY [0..7] OF CHAR;
  30.   Unit: DiskUnit;
  31.   Error: Byte;
  32.   Buffer: POINTER TO ARRAY [0..511] OF CHAR;
  33.  
  34. BEGIN
  35.   LOOP
  36.     WriteString('Device-Namen eingeben (zB. "DF0"): ');
  37.     ReadString(DevName);
  38.     IF DevName[0]=CHR(0) THEN
  39.       EXIT
  40.     END;
  41.     Error:= OpenDiskDevice(DevName,Unit);
  42.     IF Error=badDriveType THEN
  43.       WriteString(" not connected");
  44.       WriteLn;
  45.     ELSIF Error#0 THEN
  46.       WriteString(" Error:");
  47.       WriteInt(Error,4);
  48.       WriteLn;
  49.     ELSE
  50.       WriteString(" ok");
  51.       WriteLn;
  52.       IF InhibitDrive(Unit,TRUE) THEN
  53.         WriteString("drive locked");
  54.         WriteLn;
  55.         Delay(200);
  56.         IF InhibitDrive(Unit,FALSE) THEN
  57.           WriteString("drive unlocked");
  58.           WriteLn;
  59.         END;
  60.       END;
  61.     END;
  62.   END;
  63. END InhibitDemo.
  64.  
  65.